function q=trimpol(p,tol)

flag=1;

while flag,
    
    if isempty(p),
        q=p;
        return;
    end
    
    if abs(p(1))<tol && length(p)>1,
        p=p(2:end);
    else
        flag=0;
    end
end

q=p;